home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / VisualBuilder / source / VisualBuilder.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-11-10  |  13.5 KB  |  356 lines
  1. /*** include files ***/
  2. #include <exec/types.h>
  3. #include <exec/memory.h>
  4. #include <exec/libraries.h>
  5. #include <proto/exec.h>
  6. #include <proto/muimaster.h>
  7. #include <libraries/mui.h>
  8. #include <libraries/gadtools.h>
  9. #include <intuition/intuition.h>
  10. #include <intuition/classusr.h>
  11. #include <proto/utility.h>
  12. #include <utility/utility.h>
  13. #include <utility/tagitem.h>
  14. #include <clib/alib_protos.h>
  15. #include <stdio.h>
  16. #include <string.h>
  17. #include <stdlib.h>
  18.  
  19. #define REG(x) register __ ## x
  20. #define ASM __asm
  21. #define SAVEDS __saveds
  22.  
  23. #ifndef MAKE_ID
  24. #define MAKE_ID(a,b,c,d) ((((ULONG) (a)) << 24) | (((ULONG) (b)) << 16) | (((ULONG) (c)) << 8) | ((ULONG) (d)))
  25. #endif
  26.  
  27. #define TAGBASE_KLJ (TAG_USER | (9999UL << 16))
  28.  
  29. /* counter for general use */
  30. int i;
  31.  
  32. static const char *entries[] = { "Entry1","Entry2","Entry3", NULL };
  33.  
  34. /* Structure for use in listviews */
  35. struct VBList
  36. { char *Value;
  37.   char *Key;
  38. };
  39.  
  40. struct VBList *vbl;
  41.  
  42.        
  43. /* This structure contains the pointers to all our objects */
  44. struct ObjApp
  45. {
  46.   /* Application and window objects */
  47.   APTR App; APTR ToolBoxWindow; APTR MainWindow; APTR ObjectsWindow;
  48.   APTR Toolbar; APTR MainWinGroup; APTR MenuStrip;
  49.  
  50.   /* The active object */
  51.   APTR actobj;
  52.  
  53.   /* Array with windows created by the user. max is 16 for now */
  54.   APTR UserWin[15];
  55.  
  56.   /* Menu items */
  57.   APTR MenuFile; APTR MenuEdit; APTR MenuView; APTR MenuInsert; APTR MenuTools; APTR MenuHelp;
  58.   APTR FileNew; APTR FileOpen; APTR FileSave; APTR FileSaveAs; APTR FileMakeExe; APTR FileQuit;
  59.   APTR EditCut; APTR EditCopy; APTR EditPaste; APTR EditDelete;
  60.   APTR ViewObjects; APTR ViewToolbox; APTR ViewToolbar;
  61.   APTR InsertWindow;
  62.   APTR ToolsMenuEditor; APTR ToolsOptions;
  63.   APTR HelpContents; APTR HelpAboutVB; APTR HelpAboutMUI;
  64.  
  65.   /* Toolbar buttons */
  66.   APTR ToolBarQuit; APTR ToolBarHelp;
  67.  
  68.   /* Objectswindow objects for notify class*/
  69.   APTR HelpLine; APTR HelpNode; APTR ObjectID; 
  70.  
  71.   /* Objectswindow objects for area class*/
  72.   APTR BackGround; APTR ContextMenu; APTR ControlChar; APTR CycleChain;
  73.   APTR Disabled; APTR Draggable; APTR Dropable; APTR Font; APTR Frame;
  74.   APTR FramePhantomHoriz; APTR FrameTitle; APTR HorizDisappear;
  75.   APTR HorizWeight; APTR InnerBottom; APTR InnerLeft; APTR InnerRight;
  76.   APTR InnerTop; APTR InputMode; APTR MaxHeigth; APTR MaxWidth;
  77.   APTR Selected; APTR ShortHelp; APTR ShowMe; APTR ShowSelState;
  78.   APTR VertDisappear; APTR VertWeight; APTR Weight;  
  79.  
  80.   /* General objects in objectswindow */
  81.   APTR ApplyChanges; APTR ObjListPop; 
  82. };
  83.  
  84. struct ObjApp *a;
  85.  
  86. struct Library *MUIMasterBase;
  87. /*LONG __stack = 35000;*/
  88.  
  89. #include "Prototypes.c"
  90. #include "ObjWinSubs.c"
  91. #include "ListEntries.c"
  92. #include "Menu.c"
  93. #include "MainWin.c"
  94. #include "DropObjClass.c"
  95. #include "HookFuncs.c"
  96. #include "ObjWin.c"
  97. #include "DropAppClass.c"
  98. #include "DropObjSubs.c"
  99. #include "ToolBoxWin.c"
  100. #include "CommonSubs.c"
  101.                                
  102. static VOID ShutDown(char *str)
  103. {
  104.   if (a->App)        MUI_DisposeObject(a->App);
  105.   if (DropButClass)  MUI_DeleteCustomClass(DropButClass);
  106.   if (DropGrpClass)  MUI_DeleteCustomClass(DropGrpClass);
  107.   if (DropRadClass)  MUI_DeleteCustomClass(DropRadClass);
  108.   if (DropCycClass)  MUI_DeleteCustomClass(DropCycClass);
  109.   if (DropChkClass)  MUI_DeleteCustomClass(DropChkClass);
  110.   if (DropTxtClass)  MUI_DeleteCustomClass(DropTxtClass);
  111.   if (DropLstClass)  MUI_DeleteCustomClass(DropLstClass);
  112.   if (DropStrClass)  MUI_DeleteCustomClass(DropStrClass);
  113.   if (DropGauClass)  MUI_DeleteCustomClass(DropGauClass);
  114.   if (DropSclClass)  MUI_DeleteCustomClass(DropSclClass);
  115.   if (DropBalClass)  MUI_DeleteCustomClass(DropBalClass);
  116.   if (DropImgClass)  MUI_DeleteCustomClass(DropImgClass);
  117.   if (DropSldClass)  MUI_DeleteCustomClass(DropSldClass);
  118.   if (DropKnbClass)  MUI_DeleteCustomClass(DropKnbClass);
  119.   if (DropLvlClass)  MUI_DeleteCustomClass(DropLvlClass);
  120.   if (DropNmbClass)  MUI_DeleteCustomClass(DropNmbClass);
  121.  
  122.   if (DropAppClass)  MUI_DeleteCustomClass(DropAppClass);
  123.   if (MUIMasterBase) CloseLibrary(MUIMasterBase);
  124.  
  125.   if (a)             FreeVec(a);
  126.   if (vbl)           FreeVec(vbl);
  127.   
  128.   if (str)
  129.   { puts(str);
  130.     exit(20);
  131.   }
  132.  
  133.   exit(0);
  134. }
  135.  
  136. BOOL BuildGUI(void)
  137. { 
  138.   a->App = DropApplicationObject,
  139.     MUIA_Application_Title,       "Visual Builder v1.0 alpha",
  140.     MUIA_Application_Version,     "$VER: Visual Builder 1.0 (12.06.97)",
  141.     MUIA_Application_Copyright,   "Copyright ©1997 by Jan Klok",
  142.     MUIA_Application_Author,      "Jan Klok <jklok@hotmail.com>",
  143.     MUIA_Application_Description, "A userfriendly application builder",
  144.     MUIA_Application_Base,        "VisualBuilder",
  145.     MUIA_Application_HelpFile,    "VisualBuilder.guide",
  146.     MUIA_Application_Menustrip,   a->MenuStrip,
  147.  
  148.     SubWindow, a->ToolBoxWindow = BuildToolBoxWin(),
  149.     SubWindow, a->MainWindow = BuildMainWin(),
  150.     SubWindow, a->ObjectsWindow = BuildObjWin(),
  151.   End;
  152.  
  153.   if(a->App)
  154.   {
  155.     /* Close application when closegadget of toolbarwindow is hit */
  156.     DoMethod(a->MainWindow, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  157.              a->App, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
  158.  
  159.     /* Install toolbar notifications */
  160.     DoMethod(a->ToolBarQuit, MUIM_Notify, MUIA_Pressed, FALSE,
  161.              a->App, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
  162.  
  163.     DoMethod(a->ToolBarHelp,MUIM_Notify, MUIA_Pressed, FALSE,
  164.              a->App,5,MUIM_Application_ShowHelp,NULL,NULL,"MAIN",1);
  165.  
  166.     /* Install file menu notificatons */
  167.     DoMethod(a->FileQuit, MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  168.              a->App, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
  169.  
  170.     /* Install view menu notifications */
  171.     DoMethod(a->ViewObjects, MUIM_Notify, MUIA_Menuitem_Checked, MUIV_EveryTime,
  172.              a->ObjectsWindow, 3, MUIM_Set, MUIA_Window_Open, MUIV_TriggerValue);
  173.  
  174.     DoMethod(a->ObjectsWindow, MUIM_Notify, MUIA_Window_Open, MUIV_EveryTime,
  175.              a->ViewObjects, 3, MUIM_Set, MUIA_Menuitem_Checked, MUIV_TriggerValue);
  176.  
  177.     DoMethod(a->ObjectsWindow, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  178.              a->ObjectsWindow, 3, MUIM_Set, MUIA_Window_Open, FALSE);
  179.  
  180.     DoMethod(a->ViewToolbox, MUIM_Notify, MUIA_Menuitem_Checked, MUIV_EveryTime,
  181.              a->ToolBoxWindow, 3, MUIM_Set, MUIA_Window_Open, MUIV_TriggerValue);
  182.  
  183.     DoMethod(a->ToolBoxWindow, MUIM_Notify, MUIA_Window_Open, MUIV_EveryTime,
  184.              a->ViewToolbox, 3, MUIM_Set, MUIA_Menuitem_Checked, MUIV_TriggerValue);
  185.  
  186.     DoMethod(a->ToolBoxWindow, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  187.              a->ToolBoxWindow, 3, MUIM_Set, MUIA_Window_Open, FALSE);
  188.  
  189.     DoMethod(a->ViewToolbar,MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  190.              a->Toolbar,3,MUIM_CallHook,&ShowHideToolBarHook,MUIV_TriggerValue);
  191.  
  192.     /* Install insert menu notifications */
  193.     DoMethod(a->InsertWindow,MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  194.              a->MainWindow,3,MUIM_CallHook,&InsertWindowHook,1);
  195.  
  196.     /* Install edit menu notifications */
  197.     DoMethod(a->EditDelete,MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  198.              a->MainWindow,3,MUIM_CallHook,&DeleteObjectHook,1);
  199.  
  200.     /* Install help menu notifications */
  201.     DoMethod(a->HelpContents,MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  202.              a->App,5,MUIM_Application_ShowHelp,NULL,NULL,"MAIN",1);
  203.  
  204.     DoMethod(a->HelpAboutMUI,MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  205.              a->App,2,MUIM_Application_AboutMUI,a->MainWindow);
  206.              
  207.     DoMethod(a->HelpAboutVB,MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  208.              a->MainWindow,3,MUIM_CallHook,&AboutVBHook,1);
  209.              
  210.     /* Install objects window notifications */
  211.     DoMethod(a->ApplyChanges, MUIM_Notify, MUIA_Pressed, FALSE,
  212.              a->MainWindow, 3, MUIM_CallHook,&ApplyChangesHook,1);
  213.  
  214.     /* Install doubleclick for lists in objects window */
  215.     DoMethod((Object *)XGet(a->ObjListPop,MUIA_Popobject_Object),MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,
  216.              a->ObjListPop,2,MUIM_Popstring_Close,TRUE);
  217.  
  218.     DoMethod((Object *)XGet(a->BackGround,MUIA_Popobject_Object),MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,
  219.              a->BackGround,2,MUIM_Popstring_Close,TRUE);
  220.  
  221.     DoMethod((Object *)XGet(a->Font,MUIA_Popobject_Object),MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,
  222.              a->Font,2,MUIM_Popstring_Close,TRUE);
  223.  
  224.     DoMethod((Object *)XGet(a->Frame,MUIA_Popobject_Object),MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,
  225.              a->Frame,2,MUIM_Popstring_Close,TRUE);
  226.  
  227.     DoMethod((Object *)XGet(a->InputMode,MUIA_Popobject_Object),MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,
  228.              a->InputMode,2,MUIM_Popstring_Close,TRUE);
  229.  
  230.     /* Insert items in BackGround list */
  231.     for(i=0;backgrounds[i].Key!=NULL;i++)
  232.     { vbl->Key=backgrounds[i].Key;
  233.       vbl->Value=backgrounds[i].Value;
  234.       DoMethod((Object *)XGet(a->BackGround,MUIA_Popobject_Object),MUIM_List_InsertSingle,vbl,MUIV_List_Insert_Bottom);
  235.     }
  236.        
  237.     /* Insert items in Font list */
  238.     for(i=0;fonts[i].Key!=NULL;i++)
  239.     { vbl->Key=fonts[i].Key;
  240.       vbl->Value=fonts[i].Value;
  241.       DoMethod((Object *)XGet(a->Font,MUIA_Popobject_Object),MUIM_List_InsertSingle,vbl,MUIV_List_Insert_Bottom);
  242.     }
  243.  
  244.     /* Insert items in Frame list */
  245.     for(i=0;frames[i].Key!=NULL;i++)
  246.     { vbl->Key=frames[i].Key;
  247.       vbl->Value=frames[i].Value;
  248.       DoMethod((Object *)XGet(a->Frame,MUIA_Popobject_Object),MUIM_List_InsertSingle,vbl,MUIV_List_Insert_Bottom);
  249.     }
  250.  
  251.     /* Insert items in InputMode list */
  252.     for(i=0;inputmodes[i].Key!=NULL;i++)
  253.     { vbl->Key=inputmodes[i].Key;
  254.       vbl->Value=inputmodes[i].Value;
  255.       DoMethod((Object *)XGet(a->InputMode,MUIA_Popobject_Object),MUIM_List_InsertSingle,vbl,MUIV_List_Insert_Bottom);
  256.     }
  257.                 
  258.     /* Open the vb windows */
  259.     set(a->MainWindow,    MUIA_Window_Open, TRUE);
  260.     set(a->ToolBoxWindow, MUIA_Window_Open, TRUE);
  261.     set(a->ObjectsWindow, MUIA_Window_Open, TRUE);
  262.  
  263.     /* Open the first user window */
  264.     set(a->InsertWindow,MUIA_Menuitem_Trigger,TRUE);
  265.     
  266.     return(TRUE);
  267.   }
  268.   else return(FALSE);
  269. }
  270.  
  271. static VOID Initialize(VOID)
  272. {
  273.   if (!(a = AllocVec(sizeof(struct ObjApp), MEMF_PUBLIC|MEMF_CLEAR)))
  274.     ShutDown("No memory for ObjApp structure");
  275.  
  276.   if (!(vbl = AllocVec(sizeof(struct VBList), MEMF_PUBLIC|MEMF_CLEAR)))
  277.     ShutDown("No memory for VBList structure");
  278.  
  279.   if (!(MUIMasterBase = OpenLibrary(MUIMASTER_NAME,MUIMASTER_VMIN)))
  280.     ShutDown("Failed to open mui");
  281.  
  282.   if (!(DropAppClass = MUI_CreateCustomClass(NULL, MUIC_Application, NULL, sizeof(struct DropObjData), DropApp_Dispatcher)))
  283.     ShutDown("Couldn't create DropAppClass!");
  284.  
  285.   if (!(DropButClass = MUI_CreateCustomClass(NULL, MUIC_Text, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  286.     ShutDown("Couldn't create DropButClass!");
  287.  
  288.   if (!(DropGrpClass = MUI_CreateCustomClass(NULL, MUIC_Group, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  289.     ShutDown("Couldn't create DropGrpClass!");
  290.  
  291.   if (!(DropStrClass = MUI_CreateCustomClass(NULL, MUIC_String, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  292.     ShutDown("Couldn't create DropStrClass!");
  293.  
  294.   if (!(DropRadClass = MUI_CreateCustomClass(NULL, MUIC_Radio, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  295.     ShutDown("Couldn't create DropRadClass!");
  296.  
  297.   if (!(DropCycClass = MUI_CreateCustomClass(NULL, MUIC_Cycle, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  298.     ShutDown("Couldn't create DropCycClass!");
  299.  
  300.   if (!(DropLstClass = MUI_CreateCustomClass(NULL, MUIC_Listview, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  301.     ShutDown("Couldn't create DropLstClass!");
  302.  
  303.   if (!(DropChkClass = MUI_CreateCustomClass(NULL, MUIC_Image, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  304.     ShutDown("Couldn't create DropChkClass!");
  305.  
  306.   if (!(DropTxtClass = MUI_CreateCustomClass(NULL, MUIC_Text, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  307.     ShutDown("Couldn't create DropLabClass!");
  308.  
  309.   if (!(DropGauClass = MUI_CreateCustomClass(NULL, MUIC_Gauge, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  310.     ShutDown("Couldn't create DropGauClass!");
  311.  
  312.   if (!(DropSclClass = MUI_CreateCustomClass(NULL, MUIC_Scale, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  313.     ShutDown("Couldn't create DropSclClass!");
  314.  
  315.   if (!(DropBalClass = MUI_CreateCustomClass(NULL, MUIC_Balance, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  316.     ShutDown("Couldn't create DropBalClass!");
  317.  
  318.   if (!(DropImgClass = MUI_CreateCustomClass(NULL, MUIC_Image, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  319.     ShutDown("Couldn't create DropImgClass!");
  320.  
  321.   if (!(DropSldClass = MUI_CreateCustomClass(NULL, MUIC_Slider, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  322.     ShutDown("Couldn't create DropSldClass!");
  323.  
  324.   if (!(DropKnbClass = MUI_CreateCustomClass(NULL, MUIC_Knob, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  325.     ShutDown("Couldn't create DropKnbClass!");
  326.  
  327.   if (!(DropLvlClass = MUI_CreateCustomClass(NULL, MUIC_Levelmeter, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  328.     ShutDown("Couldn't create DropLvlClass!");
  329.  
  330.   if (!(DropNmbClass = MUI_CreateCustomClass(NULL, MUIC_Numericbutton, NULL, sizeof(struct DropObjData), DropObj_Dispatcher)))
  331.     ShutDown("Couldn't create DropNmbClass!");
  332.  
  333.   if (!BuildMenu())
  334.     ShutDown("Couldn't create menu!");
  335.  
  336.   if (!BuildGUI())
  337.     ShutDown("Couldn't create application!");
  338. }
  339.  
  340. int main(int argc,char *argv[])
  341. {
  342.   Initialize();
  343.  
  344.   { ULONG sigs = 0;
  345.  
  346.     while (DoMethod(a->App,MUIM_Application_NewInput,&sigs) != MUIV_Application_ReturnID_Quit)
  347.     { if (sigs)
  348.       { sigs = Wait(sigs | SIGBREAKF_CTRL_C);
  349.         if (sigs & SIGBREAKF_CTRL_C) break;
  350.       }
  351.     }
  352.   }
  353.  
  354.   ShutDown(NULL);
  355. }
  356.